Option Explicit
Sub J_Sample003()
    Dim myRng As Range
    Dim myMsg As String
    Dim myTtl As String
    Dim myDef As String
    myMsg = "ХHƹӿܽd"		'Ҧr
    myTtl = "d򪺫w"
    myDef = ActiveCell.Address			'lȡ]ҥΤxs^
    'wJȪ]Type^
    Set myRng = Application.InputBox( _
    Prompt:=myMsg, Title:=myTtl, Default:=myDef, Type:=8)
    MsgBox myRng.Address
End Sub
